/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / Functions & Programs / •Gadgets / Peaks

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 05 50 65 61 6b 73 00 | 00 00 00 00 00 00 00 00 |..Peaks.|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 0d 76 00 | 00 03 2f ad d6 60 89 ad |......v.|../..`..|
|00000060| d6 60 89 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.`......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 ef f1 00 00 |........|........|
|00000080| 7b 0d 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |{. This |function|
|00000090| 20 61 6c 6c 6f 77 73 20 | 79 6f 75 20 74 6f 20 65 | allows |you to e|
|000000a0| 61 73 69 6c 79 20 66 69 | 74 20 6d 75 6c 74 69 70 |asily fi|t multip|
|000000b0| 6c 65 20 47 61 75 73 73 | 69 61 6e 20 70 65 61 6b |le Gauss|ian peak|
|000000c0| 73 2e 0d 0d 20 54 6f 20 | 63 6f 6d 70 69 6c 65 20 |s... To |compile |
|000000d0| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 2c 20 63 6c |the func|tion, cl|
|000000e0| 69 63 6b 20 74 68 65 20 | 62 75 74 74 6f 6e 20 22 |ick the |button "|
|000000f0| 41 64 64 22 20 61 62 6f | 76 65 2e 0d 0d 20 54 6f |Add" abo|ve... To|
|00000100| 20 73 74 61 72 74 20 61 | 20 66 69 74 2c 20 66 69 | start a| fit, fi|
|00000110| 72 73 74 20 64 69 73 70 | 6c 61 79 20 79 6f 75 72 |rst disp|lay your|
|00000120| 20 64 61 74 61 20 69 6e | 20 74 68 65 20 70 72 65 | data in| the pre|
|00000130| 76 69 65 77 20 77 69 6e | 64 6f 77 2e 0d 20 41 6c |view win|dow.. Al|
|00000140| 73 6f 20 6d 61 6b 65 20 | 73 75 72 65 20 74 68 61 |so make |sure tha|
|00000150| 74 20 74 68 65 20 66 75 | 6e 63 74 69 6f 6e 20 27 |t the fu|nction '|
|00000160| 50 65 61 6b 73 27 20 69 | 73 20 64 69 73 70 6c 61 |Peaks' i|s displa|
|00000170| 79 65 64 20 69 6e 20 74 | 68 65 20 0d 20 70 61 72 |yed in t|he . par|
|00000180| 61 6d 65 74 65 72 20 77 | 69 6e 64 6f 77 3a 20 63 |ameter w|indow: c|
|00000190| 68 6f 6f 73 65 20 50 65 | 61 6b 73 20 66 72 6f 6d |hoose Pe|aks from|
|000001a0| 20 74 68 65 20 46 75 6e | 63 20 6d 65 6e 75 2c 20 | the Fun|c menu, |
|000001b0| 74 68 65 6e 20 63 68 65 | 63 6b 0d 20 22 53 68 6f |then che|ck. "Sho|
|000001c0| 77 20 66 75 6e 63 74 69 | 6f 6e 22 20 69 6e 20 74 |w functi|on" in t|
|000001d0| 68 65 20 70 72 65 76 69 | 65 77 2e 0d 0d 20 4e 6f |he previ|ew... No|
|000001e0| 77 2c 20 79 6f 75 20 73 | 68 6f 75 6c 64 20 73 65 |w, you s|hould se|
|000001f0| 74 20 74 68 65 20 70 61 | 72 61 6d 65 74 65 72 73 |t the pa|rameters|
|00000200| 20 27 63 6f 6e 73 74 27 | 20 61 6e 64 20 27 6d 27 | 'const'| and 'm'|
|00000210| 20 6f 66 20 74 68 65 0d | 20 66 75 6e 63 74 69 6f | of the.| functio|
|00000220| 6e 2e 20 54 68 65 73 65 | 20 70 61 72 61 6d 65 74 |n. These| paramet|
|00000230| 65 72 73 20 64 65 73 63 | 72 69 62 65 20 74 68 65 |ers desc|ribe the|
|00000240| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 6f 66 20 79 | backgro|und of y|
|00000250| 6f 75 72 0d 20 64 61 74 | 61 2e 20 59 6f 75 20 6d |our. dat|a. You m|
|00000260| 75 73 74 20 73 65 74 20 | 74 68 65 73 65 20 70 61 |ust set |these pa|
|00000270| 72 61 6d 65 74 65 72 73 | 20 73 75 63 68 20 74 68 |rameters| such th|
|00000280| 61 74 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 0d |at the f|unction.|
|00000290| 20 61 70 70 72 6f 78 69 | 6d 61 74 65 6c 79 20 67 | approxi|mately g|
|000002a0| 6f 65 73 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |oes thro|ugh the |
|000002b0| 6c 6f 77 65 72 6d 6f 73 | 74 20 64 61 74 61 20 70 |lowermos|t data p|
|000002c0| 6f 69 6e 74 73 20 6f 66 | 20 79 6f 75 72 0d 20 64 |oints of| your. d|
|000002d0| 61 74 61 20 73 65 74 2e | 0d 20 54 6f 20 64 6f 20 |ata set.|. To do |
|000002e0| 74 68 69 73 2c 20 79 6f | 75 20 70 72 65 66 65 72 |this, yo|u prefer|
|000002f0| 61 62 6c 79 20 75 73 65 | 20 74 68 65 20 46 69 74 |ably use| the Fit|
|00000300| 20 74 6f 6f 6c 20 6f 66 | 20 74 68 65 20 70 72 65 | tool of| the pre|
|00000310| 76 69 65 77 20 77 69 6e | 64 6f 77 2e 0d 20 0d 20 |view win|dow.. . |
|00000320| 54 68 65 6e 20 79 6f 75 | 20 63 68 6f 6f 73 65 20 |Then you| choose |
|00000330| 74 68 65 20 4d 61 72 6b | 65 72 20 74 6f 6f 6c 20 |the Mark|er tool |
|00000340| 6f 66 20 74 68 65 20 70 | 72 65 76 69 65 77 20 77 |of the p|review w|
|00000350| 69 6e 64 6f 77 20 61 6e | 64 20 73 65 74 20 61 0d |indow an|d set a.|
|00000360| 20 6d 61 72 6b 65 72 20 | 6f 6e 20 74 6f 70 20 6f | marker |on top o|
|00000370| 66 20 65 61 63 68 20 70 | 65 61 6b 20 79 6f 75 20 |f each p|eak you |
|00000380| 73 65 65 20 69 6e 20 79 | 6f 75 72 20 64 61 74 61 |see in y|our data|
|00000390| 2e 20 4f 6e 63 65 20 74 | 68 69 73 20 69 73 0d 20 |. Once t|his is. |
|000003a0| 64 6f 6e 65 2c 20 63 6c | 69 63 6b 20 74 68 65 20 |done, cl|ick the |
|000003b0| 62 75 74 74 6f 6e 20 22 | 52 65 61 64 20 4d 61 72 |button "|Read Mar|
|000003c0| 6b 65 72 73 22 20 69 6e | 20 74 68 65 20 70 61 72 |kers" in| the par|
|000003d0| 61 6d 65 74 65 72 73 20 | 77 69 6e 64 6f 77 2e 0d |ameters |window..|
|000003e0| 20 54 68 69 73 20 73 65 | 74 73 20 74 68 65 20 70 | This se|ts the p|
|000003f0| 6f 73 69 74 69 6f 6e 20 | 61 6e 64 20 61 6d 70 6c |osition |and ampl|
|00000400| 69 74 75 64 65 20 6f 66 | 20 61 6c 6c 20 67 61 75 |itude of| all gau|
|00000410| 73 73 69 61 6e 20 70 65 | 61 6b 73 2e 0d 0d 20 49 |ssian pe|aks... I|
|00000420| 6e 20 61 20 6e 65 78 74 | 20 73 74 65 70 2c 20 73 |n a next| step, s|
|00000430| 65 74 20 74 68 65 20 70 | 61 72 61 6d 65 74 65 72 |et the p|arameter|
|00000440| 73 20 6b 31 2c 20 6b 32 | 2c 20 65 74 63 2e 20 73 |s k1, k2|, etc. s|
|00000450| 75 63 68 20 74 68 61 74 | 20 65 61 63 68 0d 20 70 |uch that| each. p|
|00000460| 65 61 6b 20 68 61 73 20 | 61 70 70 72 6f 78 69 6d |eak has |approxim|
|00000470| 61 74 65 6c 79 20 74 68 | 65 20 63 6f 72 72 65 63 |ately th|e correc|
|00000480| 74 20 77 69 64 74 68 2e | 20 59 6f 75 20 61 67 61 |t width.| You aga|
|00000490| 69 6e 20 63 61 6e 20 75 | 73 65 0d 20 74 68 65 20 |in can u|se. the |
|000004a0| 46 69 74 74 69 6e 67 20 | 74 6f 6f 6c 20 69 6e 20 |Fitting |tool in |
|000004b0| 74 68 65 20 70 61 72 61 | 6d 65 74 65 72 20 77 69 |the para|meter wi|
|000004c0| 6e 64 6f 77 20 66 6f 72 | 20 74 68 69 73 20 77 6f |ndow for| this wo|
|000004d0| 72 6b 2e 0d 0d 20 46 69 | 6e 61 6c 6c 79 2c 20 63 |rk... Fi|nally, c|
|000004e0| 68 6f 6f 73 65 20 22 4e | 6f 6e 6c 69 6e 65 61 72 |hoose "N|onlinear|
|000004f0| 20 46 69 74 2e 2e 2e 22 | 20 66 72 6f 6d 20 74 68 | Fit..."| from th|
|00000500| 65 20 43 61 6c 63 20 6d | 65 6e 75 20 74 6f 20 72 |e Calc m|enu to r|
|00000510| 75 6e 20 74 68 65 0d 20 | 66 69 74 2e 20 0d 0d 0d |un the. |fit. ...|
|00000520| 20 54 68 69 73 20 65 78 | 61 6d 70 6c 65 20 73 68 | This ex|ample sh|
|00000530| 6f 77 73 20 68 6f 77 20 | 74 6f 20 75 73 65 20 74 |ows how |to use t|
|00000540| 68 65 20 6d 61 72 6b 65 | 72 73 20 69 6e 20 74 68 |he marke|rs in th|
|00000550| 65 20 70 72 65 76 69 65 | 77 20 77 69 6e 64 6f 77 |e previe|w window|
|00000560| 0d 20 66 72 6f 6d 20 61 | 20 66 75 6e 63 74 69 6f |. from a| functio|
|00000570| 6e 2f 70 72 6f 67 72 61 | 6d 2e 20 49 74 20 61 6c |n/progra|m. It al|
|00000580| 73 6f 20 73 68 6f 77 73 | 20 68 6f 77 20 74 6f 20 |so shows| how to |
|00000590| 62 72 69 6e 67 20 75 70 | 20 61 20 62 75 74 74 6f |bring up| a butto|
|000005a0| 6e 0d 20 69 6e 20 74 68 | 65 20 50 61 72 61 6d 65 |n. in th|e Parame|
|000005b0| 74 65 72 73 20 77 69 6e | 64 6f 77 2e 0d 7d 0d 0d |ters win|dow..}..|
|000005c0| 66 75 6e 63 74 69 6f 6e | 20 50 65 61 6b 73 3b 0d |function| Peaks;.|
|000005d0| 0d 64 65 66 61 75 6c 74 | 73 0d 20 20 61 5b 31 5d |.default|s.  a[1]|
|000005e0| 20 3a 3d 20 33 2c 63 6f | 6e 73 74 61 6e 74 2c 27 | := 3,co|nstant,'|
|000005f0| 23 70 65 61 6b 73 27 2c | 30 2c 39 3b 0d 20 20 61 |#peaks',|0,9;.  a|
|00000600| 5b 32 5d 20 3a 3d 20 30 | 2c 61 63 74 69 76 65 2c |[2] := 0|,active,|
|00000610| 27 63 6f 6e 73 74 27 3b | 0d 20 20 61 5b 33 5d 20 |'const';|.  a[3] |
|00000620| 3a 3d 20 30 2c 61 63 74 | 69 76 65 2c 27 6d 27 3b |:= 0,act|ive,'m';|
|00000630| 0d 0d 20 20 61 5b 34 5d | 20 3a 3d 20 30 2c 61 63 |..  a[4]| := 0,ac|
|00000640| 74 69 76 65 2c 27 78 31 | 27 3b 20 61 5b 35 5d 20 |tive,'x1|'; a[5] |
|00000650| 3a 3d 20 31 2c 61 63 74 | 69 76 65 2c 27 41 31 27 |:= 1,act|ive,'A1'|
|00000660| 3b 20 61 5b 36 5d 20 3a | 3d 20 31 2c 61 63 74 69 |; a[6] :|= 1,acti|
|00000670| 76 65 2c 27 6b 31 27 3b | 0d 20 20 61 5b 37 5d 20 |ve,'k1';|.  a[7] |
|00000680| 3a 3d 20 35 2c 61 63 74 | 69 76 65 2c 27 78 32 27 |:= 5,act|ive,'x2'|
|00000690| 3b 20 61 5b 38 5d 20 3a | 3d 20 31 2c 61 63 74 69 |; a[8] :|= 1,acti|
|000006a0| 76 65 2c 27 41 32 27 3b | 20 61 5b 39 5d 20 3a 3d |ve,'A2';| a[9] :=|
|000006b0| 20 31 2c 61 63 74 69 76 | 65 2c 27 6b 32 27 3b 0d | 1,activ|e,'k2';.|
|000006c0| 20 20 61 5b 31 30 5d 20 | 3a 3d 20 31 30 2c 61 63 |  a[10] |:= 10,ac|
|000006d0| 74 69 76 65 2c 27 78 33 | 27 3b 20 61 5b 31 31 5d |tive,'x3|'; a[11]|
|000006e0| 20 3a 3d 20 31 2c 61 63 | 74 69 76 65 2c 27 41 33 | := 1,ac|tive,'A3|
|000006f0| 27 3b 20 61 5b 31 32 5d | 20 3a 3d 20 31 2c 61 63 |'; a[12]| := 1,ac|
|00000700| 74 69 76 65 2c 27 6b 33 | 27 3b 0d 20 20 61 5b 31 |tive,'k3|';.  a[1|
|00000710| 33 5d 20 3a 3d 20 31 35 | 2c 61 63 74 69 76 65 2c |3] := 15|,active,|
|00000720| 27 78 34 27 3b 20 61 5b | 31 34 5d 20 3a 3d 20 31 |'x4'; a[|14] := 1|
|00000730| 2c 61 63 74 69 76 65 2c | 27 41 34 27 3b 20 61 5b |,active,|'A4'; a[|
|00000740| 31 35 5d 20 3a 3d 20 31 | 2c 61 63 74 69 76 65 2c |15] := 1|,active,|
|00000750| 27 6b 34 27 3b 0d 20 20 | 61 5b 31 36 5d 20 3a 3d |'k4';.  |a[16] :=|
|00000760| 20 32 30 2c 61 63 74 69 | 76 65 2c 27 78 35 27 3b | 20,acti|ve,'x5';|
|00000770| 20 61 5b 31 37 5d 20 3a | 3d 20 31 2c 61 63 74 69 | a[17] :|= 1,acti|
|00000780| 76 65 2c 27 41 35 27 3b | 20 61 5b 31 38 5d 20 3a |ve,'A5';| a[18] :|
|00000790| 3d 20 31 2c 61 63 74 69 | 76 65 2c 27 6b 35 27 3b |= 1,acti|ve,'k5';|
|000007a0| 0d 20 20 61 5b 31 39 5d | 20 3a 3d 20 32 35 2c 61 |.  a[19]| := 25,a|
|000007b0| 63 74 69 76 65 2c 27 78 | 36 27 3b 20 61 5b 32 30 |ctive,'x|6'; a[20|
|000007c0| 5d 20 3a 3d 20 31 2c 61 | 63 74 69 76 65 2c 27 41 |] := 1,a|ctive,'A|
|000007d0| 36 27 3b 20 61 5b 32 31 | 5d 20 3a 3d 20 31 2c 61 |6'; a[21|] := 1,a|
|000007e0| 63 74 69 76 65 2c 27 6b | 36 27 3b 0d 20 20 61 5b |ctive,'k|6';.  a[|
|000007f0| 32 32 5d 20 3a 3d 20 33 | 30 2c 61 63 74 69 76 65 |22] := 3|0,active|
|00000800| 2c 27 78 37 27 3b 20 61 | 5b 32 33 5d 20 3a 3d 20 |,'x7'; a|[23] := |
|00000810| 31 2c 61 63 74 69 76 65 | 2c 27 41 37 27 3b 20 61 |1,active|,'A7'; a|
|00000820| 5b 32 34 5d 20 3a 3d 20 | 31 2c 61 63 74 69 76 65 |[24] := |1,active|
|00000830| 2c 27 6b 37 27 3b 0d 20 | 20 61 5b 32 35 5d 20 3a |,'k7';. | a[25] :|
|00000840| 3d 20 33 35 2c 61 63 74 | 69 76 65 2c 27 78 38 27 |= 35,act|ive,'x8'|
|00000850| 3b 20 61 5b 32 36 5d 20 | 3a 3d 20 31 2c 61 63 74 |; a[26] |:= 1,act|
|00000860| 69 76 65 2c 27 41 38 27 | 3b 20 61 5b 32 37 5d 20 |ive,'A8'|; a[27] |
|00000870| 3a 3d 20 31 2c 61 63 74 | 69 76 65 2c 27 6b 38 27 |:= 1,act|ive,'k8'|
|00000880| 3b 0d 20 20 61 5b 32 38 | 5d 20 3a 3d 20 34 30 2c |;.  a[28|] := 40,|
|00000890| 61 63 74 69 76 65 2c 27 | 78 39 27 3b 20 61 5b 32 |active,'|x9'; a[2|
|000008a0| 39 5d 20 3a 3d 20 31 2c | 61 63 74 69 76 65 2c 27 |9] := 1,|active,'|
|000008b0| 41 39 27 3b 20 61 5b 33 | 30 5d 20 3a 3d 20 31 2c |A9'; a[3|0] := 1,|
|000008c0| 61 63 74 69 76 65 2c 27 | 6b 39 27 3b 0d 0d 64 65 |active,'|k9';..de|
|000008d0| 73 63 72 69 70 74 69 6f | 6e 0d 20 20 27 4d 75 6c |scriptio|n.  'Mul|
|000008e0| 74 69 70 6c 65 20 47 61 | 75 73 73 69 61 6e 20 70 |tiple Ga|ussian p|
|000008f0| 65 61 6b 73 2e 20 23 70 | 65 61 6b 73 20 3d 20 6e |eaks. #p|eaks = n|
|00000900| 75 6d 62 65 72 20 6f 66 | 20 70 65 61 6b 73 2e 27 |umber of| peaks.'|
|00000910| 2c 0d 20 20 27 24 42 52 | 65 61 64 20 4d 61 72 6b |,.  '$BR|ead Mark|
|00000920| 65 72 73 2e 2e 2e 24 20 | 79 20 3a 3d 20 53 55 4d |ers...$ |y := SUM|
|00000930| 28 41 69 2a 65 78 70 28 | 2d 6b 69 2a 28 78 2d 78 |(Ai*exp(|-ki*(x-x|
|00000940| 69 29 5e 32 29 29 20 2b | 20 63 6f 6e 73 74 27 3b |i)^2)) +| const';|
|00000950| 0d 20 20 7b 6e 6f 74 65 | 20 74 68 61 74 20 74 68 |.  {note| that th|
|00000960| 65 20 73 65 63 6f 6e 64 | 20 73 74 72 69 6e 67 20 |e second| string |
|00000970| 73 74 61 72 74 73 20 77 | 69 74 68 20 24 42 2e 2e |starts w|ith $B..|
|00000980| 2e 24 2c 20 77 68 69 63 | 68 20 69 6e 64 69 63 61 |.$, whic|h indica|
|00000990| 74 65 73 0d 20 20 20 74 | 68 61 74 20 74 68 65 72 |tes.   t|hat ther|
|000009a0| 65 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 62 75 |e should| be a bu|
|000009b0| 74 74 6f 6e 20 69 6e 20 | 74 68 65 20 50 61 72 61 |tton in |the Para|
|000009c0| 6d 65 74 65 72 73 20 77 | 69 6e 64 6f 77 7d 0d 20 |meters w|indow}. |
|000009d0| 76 61 72 0d 20 20 20 69 | 3a 69 6e 74 65 67 65 72 |var.   i|:integer|
|000009e0| 3b 0d 0d 70 72 6f 63 65 | 64 75 72 65 20 43 68 65 |;..proce|dure Che|
|000009f0| 63 6b 3b 0d 20 76 61 72 | 20 78 6d 2c 20 79 6d 2c |ck;. var| xm, ym,|
|00000a00| 69 2c 6d 61 78 3b 0d 62 | 65 67 69 6e 0d 20 69 66 |i,max;.b|egin. if|
|00000a10| 20 70 4e 75 6d 62 65 72 | 20 3d 20 33 30 30 30 30 | pNumber| = 30000|
|00000a20| 20 74 68 65 6e 20 20 7b | 69 66 20 62 75 74 74 6f | then  {|if butto|
|00000a30| 6e 20 63 6c 69 63 6b 65 | 64 2c 20 70 4e 75 6d 62 |n clicke|d, pNumb|
|00000a40| 65 72 20 69 73 20 61 6c | 77 61 79 73 20 33 30 30 |er is al|ways 300|
|00000a50| 30 30 7d 0d 20 62 65 67 | 69 6e 0d 20 20 6d 61 78 |00}. beg|in.  max|
|00000a60| 20 3a 3d 20 30 3b 0d 20 | 20 66 6f 72 20 69 20 3a | := 0;. | for i :|
|00000a70| 3d 20 30 20 74 6f 20 38 | 20 64 6f 0d 20 20 62 65 |= 0 to 8| do.  be|
|00000a80| 67 69 6e 0d 20 20 20 20 | 47 65 74 4d 61 72 6b 65 |gin.    |GetMarke|
|00000a90| 64 43 6f 6f 72 64 28 69 | 2c 78 6d 2c 79 6d 29 3b |dCoord(i|,xm,ym);|
|00000aa0| 0d 20 20 20 20 69 66 20 | 6e 6f 74 20 28 49 6e 76 |.    if |not (Inv|
|00000ab0| 61 6c 69 64 28 78 6d 29 | 20 6f 72 20 49 6e 76 61 |alid(xm)| or Inva|
|00000ac0| 6c 69 64 28 79 6d 29 29 | 20 74 68 65 6e 0d 20 20 |lid(ym))| then.  |
|00000ad0| 20 20 62 65 67 69 6e 0d | 20 20 20 20 20 20 53 65 |  begin.|      Se|
|00000ae0| 74 50 61 72 61 6d 44 65 | 66 61 75 6c 74 56 61 6c |tParamDe|faultVal|
|00000af0| 75 65 28 33 2a 69 2b 34 | 2c 20 78 6d 29 3b 0d 20 |ue(3*i+4|, xm);. |
|00000b00| 20 20 20 20 20 53 65 74 | 50 61 72 61 6d 44 65 66 |     Set|ParamDef|
|00000b10| 61 75 6c 74 56 61 6c 75 | 65 28 33 2a 69 2b 35 2c |aultValu|e(3*i+5,|
|00000b20| 20 79 6d 2d 61 5b 32 5d | 2d 61 5b 33 5d 2a 78 6d | ym-a[2]|-a[3]*xm|
|00000b30| 29 3b 0d 20 20 20 20 20 | 20 6d 61 78 20 3a 3d 20 |);.     | max := |
|00000b40| 69 2b 31 3b 0d 20 20 20 | 20 65 6e 64 0d 20 20 20 |i+1;.   | end.   |
|00000b50| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 53 65 74 50 | else.  |    SetP|
|00000b60| 61 72 61 6d 44 65 66 61 | 75 6c 74 56 61 6c 75 65 |aramDefa|ultValue|
|00000b70| 28 33 2a 69 2b 35 2c 20 | 30 29 3b 0d 20 20 65 6e |(3*i+5, |0);.  en|
|00000b80| 64 3b 0d 20 20 53 65 74 | 50 61 72 61 6d 44 65 66 |d;.  Set|ParamDef|
|00000b90| 61 75 6c 74 56 61 6c 75 | 65 28 31 2c 20 6d 61 78 |aultValu|e(1, max|
|00000ba0| 29 3b 0d 20 20 63 68 65 | 63 6b 20 3a 3d 20 75 70 |);.  che|ck := up|
|00000bb0| 64 61 74 65 3b 0d 20 65 | 6e 64 0d 20 65 6c 73 65 |date;. e|nd. else|
|00000bc0| 20 69 66 20 70 4e 75 6d | 62 65 72 20 3d 20 31 20 | if pNum|ber = 1 |
|00000bd0| 74 68 65 6e 0d 20 62 65 | 67 69 6e 0d 20 20 20 66 |then. be|gin.   f|
|00000be0| 6f 72 20 69 20 3a 3d 20 | 30 20 74 6f 20 38 20 64 |or i := |0 to 8 d|
|00000bf0| 6f 0d 20 20 20 20 20 69 | 66 20 61 5b 31 5d 20 3e |o.     i|f a[1] >|
|00000c00| 20 69 20 74 68 65 6e 0d | 20 20 20 20 20 62 65 67 | i then.|     beg|
|00000c10| 69 6e 0d 20 20 20 20 20 | 20 20 20 69 66 20 6d 6f |in.     |   if mo|
|00000c20| 64 65 5b 33 2a 69 2b 33 | 5d 20 3d 20 63 6f 6e 73 |de[3*i+3|] = cons|
|00000c30| 74 61 6e 74 20 74 68 65 | 6e 20 6d 6f 64 65 5b 33 |tant the|n mode[3|
|00000c40| 2a 69 2b 34 5d 20 3a 3d | 20 61 63 74 69 76 65 3b |*i+4] :=| active;|
|00000c50| 0d 20 20 20 20 20 20 20 | 20 69 66 20 6d 6f 64 65 |.       | if mode|
|00000c60| 5b 33 2a 69 2b 34 5d 20 | 3d 20 63 6f 6e 73 74 61 |[3*i+4] |= consta|
|00000c70| 6e 74 20 74 68 65 6e 20 | 6d 6f 64 65 5b 33 2a 69 |nt then |mode[3*i|
|00000c80| 2b 35 5d 20 3a 3d 20 61 | 63 74 69 76 65 3b 0d 20 |+5] := a|ctive;. |
|00000c90| 20 20 20 20 20 20 20 69 | 66 20 6d 6f 64 65 5b 33 |       i|f mode[3|
|00000ca0| 2a 69 2b 35 5d 20 3d 20 | 63 6f 6e 73 74 61 6e 74 |*i+5] = |constant|
|00000cb0| 20 74 68 65 6e 20 6d 6f | 64 65 5b 33 2a 69 2b 36 | then mo|de[3*i+6|
|00000cc0| 5d 20 3a 3d 20 61 63 74 | 69 76 65 3b 0d 20 20 20 |] := act|ive;.   |
|00000cd0| 20 20 65 6e 64 0d 20 20 | 20 20 20 65 6c 73 65 0d |  end.  |   else.|
|00000ce0| 20 20 20 20 20 62 65 67 | 69 6e 0d 20 20 20 20 20 |     beg|in.     |
|00000cf0| 20 20 6d 6f 64 65 5b 33 | 2a 69 2b 34 5d 20 3a 3d |  mode[3|*i+4] :=|
|00000d00| 20 63 6f 6e 73 74 61 6e | 74 3b 0d 20 20 20 20 20 | constan|t;.     |
|00000d10| 20 20 6d 6f 64 65 5b 33 | 2a 69 2b 35 5d 20 3a 3d |  mode[3|*i+5] :=|
|00000d20| 20 63 6f 6e 73 74 61 6e | 74 3b 0d 20 20 20 20 20 | constan|t;.     |
|00000d30| 20 20 6d 6f 64 65 5b 33 | 2a 69 2b 36 5d 20 3a 3d |  mode[3|*i+6] :=|
|00000d40| 20 63 6f 6e 73 74 61 6e | 74 3b 0d 20 20 20 20 20 | constan|t;.     |
|00000d50| 65 6e 64 3b 0d 20 20 20 | 63 68 65 63 6b 20 3a 3d |end;.   |check :=|
|00000d60| 20 75 70 64 61 74 65 3b | 0d 20 65 6e 64 0d 20 65 | update;|. end. e|
|00000d70| 6c 73 65 20 63 68 65 63 | 6b 20 3a 3d 20 6f 6b 3b |lse chec|k := ok;|
|00000d80| 0d 65 6e 64 3b 0d 0d 62 | 65 67 69 6e 0d 20 20 79 |.end;..b|egin.  y|
|00000d90| 20 3a 3d 20 61 5b 32 5d | 20 2b 20 61 5b 33 5d 2a | := a[2]| + a[3]*|
|00000da0| 78 3b 0d 20 20 66 6f 72 | 20 69 20 3a 3d 20 31 20 |x;.  for| i := 1 |
|00000db0| 74 6f 20 61 5b 31 5d 20 | 64 6f 0d 20 20 20 20 79 |to a[1] |do.    y|
|00000dc0| 20 3a 3d 20 79 20 2b 20 | 61 5b 33 2a 69 2b 32 5d | := y + |a[3*i+2]|
|00000dd0| 2a 65 78 70 28 2d 61 5b | 33 2a 69 2b 33 5d 2a 73 |*exp(-a[|3*i+3]*s|
|00000de0| 71 72 28 78 2d 61 5b 33 | 2a 69 2b 31 5d 29 29 3b |qr(x-a[3|*i+1]));|
|00000df0| 0d 65 6e 64 3b 0d 00 00 | 00 00 00 00 00 00 00 00 |.end;...|........|
|00000e00| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000e10| 20 6d 61 72 6b 65 72 73 | 0d 20 69 6e 20 74 68 65 | markers|. in the|
|00000e20| 20 70 72 65 76 69 65 77 | 20 77 69 6e 64 6f 77 2e | preview| window.|
|00000e30| 05 50 65 61 6b 73 02 00 | 00 00 66 74 46 43 4e 4c |.Peaks..|..ftFCNL|
|00000e40| 66 74 01 00 ff ff ff ff | 00 00 00 00 30 a8 00 00 |ft......|....0...|
|00000e50| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000e70| 00 00 ad d5 05 41 00 00 | 0d 76 00 00 03 2f 72 6b |.....A..|.v.../rk|
|00000e80| 65 72 20 6f 6e 20 65 61 | 63 68 20 70 65 61 6b 2e |er on ea|ch peak.|
|00000e90| 0d 20 4e 6f 77 20 63 6c | 69 63 6b 20 74 68 65 20 |. Now cl|ick the |
|00000ea0| 62 75 74 74 6f 6e 20 22 | 52 65 61 64 20 4d 61 72 |button "|Read Mar|
|00000eb0| 6b 65 72 73 2e 2e 2e 22 | 20 69 6e 20 74 68 65 20 |kers..."| in the |
|00000ec0| 50 61 72 61 6d 65 74 65 | 72 73 0d 20 77 69 6e 64 |Paramete|rs. wind|
|00000ed0| 6f 77 2e 20 54 68 69 73 | 20 73 65 74 73 20 74 68 |ow. This| sets th|
|00000ee0| 65 20 70 61 72 61 6d 65 | 74 65 72 73 20 78 69 20 |e parame|ters xi |
|00000ef0| 61 6e 64 20 41 69 20 6f | 66 20 74 68 65 20 66 69 |and Ai o|f the fi|
|00000f00| 00 00 00 08 00 90 00 0e | 02 59 02 34 00 00 01 06 |........|.Y.4....|
|00000f10| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 28 40 a1 |.......M|onaco(@.|
|00000f20| 27 a0 00 53 1c a0 00 81 | 00 00 00 01 d9 94 fe 00 |'..S....|........|
|00000f30| 10 00 02 6a 6b 1c 02 6a | 69 70 00 02 a2 04 00 0b |...jk..j|ip......|
|00000f40| 00 06 00 0b 00 06 00 01 | 69 60 02 44 d0 78 00 00 |........|i`.D.x..|
|00000f50| 00 00 00 00 00 0b 02 6a | 6a 80 00 0b a8 44 03 3e |.......j|j....D.>|
|00000f60| c1 90 00 00 00 02 00 2a | 00 11 02 44 7f 60 00 0d |.......*|...D.`..|
|00000f70| 73 50 02 6a 69 d8 00 0d | 73 5c 02 45 ea 1c 02 44 |sP.ji...|s\.E...D|
|00000f80| d1 1a 00 00 00 01 00 03 | c8 90 00 04 eb b0 00 03 |........|........|
|00000f90| c8 90 00 00 00 00 02 6a | 69 e0 00 19 61 10 00 14 |.......j|i...a...|
|00000fa0| d8 38 00 19 61 30 02 6a | 69 e0 00 18 c3 2c 00 14 |.8..a0.j|i....,..|
|00000fb0| d1 b4 00 49 82 60 02 6a | 69 e0 00 18 c3 2c 00 0d |...I.`.j|i....,..|
|00000fc0| 73 5c 00 0d 73 50 02 6a | 6a 10 00 18 c3 2c 00 1a |s\..sP.j|j....,..|
|00000fd0| 14 5c 00 00 03 e1 02 6a | 69 f0 00 0d 73 74 00 11 |.\.....j|i...st..|
|00000fe0| 47 c8 00 04 eb b0 00 00 | 64 d0 00 01 2f a4 00 00 |G.......|d.../...|
|00000ff0| 00 00 00 0b ae 60 02 44 | f4 3a 00 19 61 10 07 80 |.....`.D|.:..a...|
|00001000| 03 80 00 00 00 00 02 6a | 6a 40 02 6a 6a 30 00 14 |.......j|j@.jj0..|
|00001010| cf 48 00 00 00 02 00 00 | 00 10 00 00 00 00 00 00 |.H......|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00001030| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00001040| 00 00 03 36 02 40 ff f4 | ff f5 03 3e 02 48 03 47 |...6.@..|...>.H.G|
|00001050| 05 7b 03 e0 00 02 00 00 | 00 48 00 48 00 00 00 00 |.{......|.H.H....|
|00001060| 02 d8 02 28 00 01 00 00 | 00 64 00 00 00 01 00 03 |...(....|.d......|
|00001070| 03 03 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00001080| 00 00 00 00 00 00 00 00 | 68 08 00 19 01 90 00 00 |........|h.......|
|00001090| 00 00 00 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |... ....|........|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000010c0| b9 00 00 01 b9 00 00 00 | 76 02 45 07 8c 25 18 00 |........|v.E..%..|
|000010d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000010e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 02 |TR ...N.|........|
|000010f0| 44 ff 68 00 82 ff ff 00 | 00 00 0c 02 44 f9 c8 00 |D.h.....|....D...|
|00001100| 83 ff ff 00 00 01 16 02 | 44 fb 04 00 85 ff ff 00 |........|D.......|
|00001110| 00 01 2a 02 44 fb 28 00 | 84 ff ff 00 00 01 32 02 |..*.D.(.|......2.|
|00001120| 44 fc 6c bf f4 ff ff 00 | 00 01 ae 02 44 fc 1c 00 |D.l.....|....D...|
|00001130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+